unit UnitySevkAdresKarsilik;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, XPMan, StdActns, ActnList, DB, ADODB, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,
  cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
  cxButtonEdit;

type
  TfmUnitySevkAdresKarsilik = class(TfmFormClass)
    aqEntry: TADOQuery;
    dsEntry: TDataSource;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1Carikodu: TcxGridDBColumn;
    cxGrid1DBTableView1Excelismi: TcxGridDBColumn;
    cxGrid1DBTableView1SevkKodu: TcxGridDBColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUnitySevkAdresKarsilik: TfmUnitySevkAdresKarsilik;

implementation
uses data;
{$R *.dfm}

procedure TfmUnitySevkAdresKarsilik.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmUnitySevkAdresKarsilik := nil;
end;

procedure TfmUnitySevkAdresKarsilik.FormCreate(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

